home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / v7n11.arc / FILL.BAS < prev    next >
Encoding:
BASIC Source File  |  1988-05-02  |  250 b   |  9 lines
  1.      DEF SEG = &HB800      'CGA display memory segment
  2.      SCREEN 1
  3.      X = TIMER
  4.      WHILE X + .5 > TIMER  'allow screen time to settle
  5.      WEND
  6.      FOR X = 0 TO 15999    'turn on all pixels in succession
  7.          POKE X, 255
  8.      NEXT
  9.